home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / mus / play / mpegagui.lha / mpegagui / MPEGA.gc < prev    next >
Encoding:
Gui4CLI script  |  1997-08-20  |  23.3 KB  |  992 lines
  1. G4C
  2.  
  3. ; Hi there!
  4. ; 
  5. ; This is a Gui4CLI Script. Once runned, it pops up a GUI (Graphical
  6. ; User Interface, in short: a window with buttons) which can be used
  7. ; as a frontend for MPEGA.
  8. ; 
  9. ; This script was developed for Gui4CLI version 3 :
  10. ; > Author   : dck@prometheus.hol.gr (D. Keletsekis)
  11. ; > Type     : Dev/Gui
  12. ; > Version  : 3.0
  13. ; > Requires : WB 2.04 or higher
  14. ; 
  15. ; This GUI was developed for MPEGA version 2.9 :
  16. ; > MPEGA V2.9 [68020/30] (C)1995-1997 Stéphane TAVENARD
  17. ; > Release date: May 29 1997 (68020/30)
  18. ; > Email: tavenard@xiii.univ-angers.fr
  19. ; 
  20. ; Gui4CLI can be downloaded from AmiNet from the directory dev/gui.
  21. ; MPEGA can be downloaded from AmiNet from the directory mus/play.
  22. ; 
  23. ; If you don't like this script you are allowed to change it yourself.
  24. ; If you do so, I would like you to E-mail me your new version.
  25. ; If you change this script and redistribute it, you are not allowed
  26. ; to erase my copyright notice. Feel free to add your own notice.
  27. ; 
  28. ; This GUI was developed on a screen resolution of 640*495 pixels.
  29. ; I've tested it on a PAL 640*256 screen and didn't like the window
  30. ; sizes. If you want to run it on a 640*256 screen, you can change
  31. ; the default window sizes. How to do that is perfectly described in
  32. ; the Gui4CLI documentation (Gui4CLI.guide) which comes with the
  33. ; Gui4CLI package. I recommend reading the 'Important Topics! /
  34. ; Window Shortcuts' and the 'COMMANDS / WinBig' sections for that.
  35. ; 
  36. ; You also might want to change the default paths the GUI uses.
  37. ; They are at lines 61 and 62 of this file.
  38. ; 
  39. ; There are some bugs in this GUI due to the nature of it: it uses
  40. ; the OS multitasking. If you want, you can crash it. Just hit some
  41. ; different buttons with a very short interval. If you think it's lame
  42. ; for that, go buy a faster Miggy...
  43. ; 
  44. ; 
  45. ; Copyright 1997 M. van Dillen
  46. ; E-mail: 1011071@ibk.fnt.hvu.nl
  47.  
  48.  
  49. WINBIG 1024 11 380 235 'MPEGA GUI v1.0 by Kozmic'
  50. WinType 11110001
  51. WinSmall -1 -1 365 190
  52.  
  53. ICON 180 20 :MPEGA.gc
  54. gadid 8
  55.  
  56. xOnLoad
  57. version = 'MPEGA GUI v1.0'
  58. Extract MPEGA.gc GuiPath KozPath
  59. Exe = 'dh1:music/mpega/mpega'
  60. GoSub MPEGA.gc CheckExe
  61. defaultpath = 'MP3:'
  62. playlistpath = 'MP3:Playlists'
  63. header = '@MP3PLAYLIST@'
  64. stilte = 0
  65. warning = 1
  66. stilte = 1
  67. playing = 0
  68. files = 0
  69. inf = 0
  70. IF $inf = 1
  71.    SetGad MPEGA.gc 8 hide
  72. ELSE
  73.    SetGad MPEGA.gc 10 hide    ;box
  74.    SetGad MPEGA.gc 11 hide    ;text
  75.    SetGad MPEGA.gc 12 hide    ;text
  76.    SetGad MPEGA.gc 13 hide    ;text
  77.    SetGad MPEGA.gc 14 hide    ;text
  78.    SetGad MPEGA.gc 15 hide    ;text
  79.    SetGad MPEGA.gc 16 hide    ;text
  80. ENDIF
  81. JoinFile $KozPath 'MPEGAGUI.options' opfile
  82. IfExists FILE $opfile
  83.    Copy $opfile 'ENV:.MPEGAGUI.options'
  84.    extra = $.MPEGAGUI.options
  85. ENDIF
  86. JoinFile $KozPath 'MP3Info' getinfo
  87.  
  88. priority = 0
  89. prio2 = 1
  90. negprio = 0
  91. offset = 0
  92. volume = 128
  93. buffer = 131
  94. maxfreq = 22000
  95. SetVar mf 'Off'
  96. SetVar wait 'Off'
  97. Update MPEGA.gc 1 0        ; mono
  98. Update MPEGA.gc 2 1        ; freq div 2
  99. Update MPEGA.gc 3 1        ; quality good
  100. SetGad MPEGA.gc 4 OFF        ; AHI Off
  101. SetGad MPEGA.gc 6 OFF        ; buffer disabled
  102. SetGad MPEGA.gc 7 OFF        ; max freq disabled
  103. redraw MPEGA.gc
  104. GuiOpen MPEGA.gc
  105.  
  106. xOnClose
  107. GoSub MPEGA.gc cleanup
  108. GuiQuit Playlist.gc
  109. GuiQuit extra.gc
  110. GuiQuit MPEGA.gc
  111.  
  112.  
  113. ;--- Misc ---
  114.  
  115. xOnKey #13
  116. GoSub MPEGA.gc stop
  117. GoSub MPEGA.gc play
  118.  
  119. xOnKey ' '
  120. GoSub MPEGA.gc stop
  121.  
  122. xOnKey 'l'
  123. GoSub Playlist.gc load
  124. IF $files > 1
  125.    ;Playlist window init en openen
  126.    GuiLoad Playlist.gc
  127.    GuiOpen Playlist.gc
  128. ELSE
  129.    IFEXISTS Window Playlist.gc
  130.       GuiClose Playlist.gc
  131.    ENDIF
  132. ENDIF
  133.  
  134. xOnKey #27
  135. GoSub MPEGA.gc cleanup
  136. GuiQuit Playlist.gc
  137. GuiQuit extra.gc
  138. GuiQuit MPEGA.gc
  139.  
  140. xAppWindow Filenames
  141. ;alle icons verwerken
  142. IF $Filenames > ""
  143.    ;Listview input maken
  144.    files = 0
  145.    CLI 'Echo "" NOLINE > T:MPEGAGUI.temp'
  146.    WHILE $Filenames != ""
  147.       CutVar Filenames CUT WORD 1 eenfile
  148.       APPEND T:MPEGAGUI.temp $eenfile
  149.       IF $files = 0
  150.          Filename = $eenfile
  151.       ENDIF
  152.       CutVar Filenames CUT CHAR 1 space
  153.       IF $Filenames != ""
  154.          APPEND T:MPEGAGUI.temp \n
  155.       ENDIF   
  156.       files == $files + 1
  157.    ENDWHILE
  158.    IF $files > 1
  159.       ;Playlist window init en openen
  160.       GuiLoad Playlist.gc
  161.       LVUse Playlist.gc 1
  162.       LVChange T:MPEGAGUI.temp
  163.       GuiOpen Playlist.gc
  164.    ELSE
  165.       IFEXISTS Window Playlist.gc
  166.          GuiClose Playlist.gc
  167.       ENDIF
  168.    ENDIF
  169.    Update MPEGA.gc 5 'Current file: $Filename'
  170. ENDIF
  171. ;play it!
  172. GoSub MPEGA.gc stop
  173. GoSub MPEGA.gc play
  174.  
  175.  
  176. ;--- Left gadgets ---
  177.  
  178. XCYCLER 88 10 80 18   "_Mode" "mymode"
  179. gadid 1
  180. CStr Mono 0
  181. CStr Stereo 1
  182.  
  183. XCYCLER 88 30 80 18   "Freq _Div" freq
  184. gadid 2
  185. CStr 1 0
  186. CStr 2 1
  187. CStr 4 2
  188.  
  189. XCYCLER 88 50 80 18   "_Quality" "quality"
  190. gadid 3
  191. CStr Worst 0
  192. CStr Good 1
  193. CStr Best 2
  194.  
  195. XTEXTIN 88 74 80 18   "Buffer time" "buffer" "131" 10
  196. gadid 6
  197. IF $buffer = ""
  198.    buffer = "0"
  199.    update MPEGA.gc 9 $buffer
  200. ENDIF
  201. Update MPEGA.gc 5 'Waiting for buffer to be full will now be enabled'
  202.  
  203. XTEXTIN 88 94 80 18   "Max Freq" "maxfreq" "22049" 10
  204. gadid 7
  205. Update MPEGA.gc 5 'Maximum decoding frequency will be $maxfreq Hz'
  206.  
  207. XTEXTIN 88 114 80 18   "Mode ID" "ahimode" "20004" 5
  208. gadid 4
  209. Update MPEGA.gc 5 'AHI will now be enabled'
  210.  
  211. XTEXTIN 88 134 80 18   "Stream start" "offset" "0" 10
  212. gadid 9
  213. IF $offset = ""
  214.    offset = "0"
  215.    update MPEGA.gc 9 $offset
  216. ENDIF
  217. Update MPEGA.gc 5 'Playing will start at offset $offset seconds'
  218.  
  219. XHSLIDER 88 158 80 18   "_Volume" "volume" 0 256 128 "%ld"
  220. IF $volume < 65
  221.    Update MPEGA.gc 5 'Volume will be $volume'
  222. ELSE
  223.    Update MPEGA.gc 5 'Volume will be boosted to $volume'
  224. ENDIF
  225.  
  226.  
  227. ;--- Right gadgets ---
  228.  
  229. TEXT 180 10 190 58 "" 1 BOX
  230. gadid 10
  231.  
  232. TEXT 185 12 100 10 "Title:" 6 NOBOX
  233. gadid 14
  234. TEXT 185 21 100 10 "<not available>" 30 NOBOX
  235. gadid 11
  236. TEXT 185 30 100 10 "Artist / Group:" 15 NOBOX
  237. gadid 15
  238. TEXT 185 39 100 10 "<not available>" 30 NOBOX
  239. gadid 12
  240. TEXT 185 48 100 10 "Album:" 6 NOBOX
  241. gadid 16
  242. TEXT 185 57 100 10 "<not available>" 30 NOBOX
  243. gadid 13
  244.  
  245. XCHECKBOX 200 74 26 18   "_Wait for buffer" "wait" "On" "Off" OFF
  246. GadTitle RIGHT
  247. IF $wait = "On"
  248.    setgad MPEGA.gc 6 ON
  249.    Update MPEGA.gc 5 'Enter seconds of playback buffer'
  250. ELSE
  251.    setgad MPEGA.gc 6 OFF
  252.    Update MPEGA.gc 5 'Waiting for buffer to be full will now be disabled'
  253. ENDIF
  254.  
  255. XCHECKBOX 200 94 26 18   "Ma_x freq" "mf" "On" "Off" OFF
  256. GadTitle RIGHT
  257. IF $mf = "On"
  258.    setgad MPEGA.gc 7 ON
  259.    setgad MPEGA.gc 2 OFF
  260.    Update MPEGA.gc 5 'Enter maximum playback frequency'
  261. ELSE
  262.    setgad MPEGA.gc 7 OFF
  263.    setgad MPEGA.gc 2 ON
  264.    Update MPEGA.gc 5 'Standard playback frequency will be used'
  265. ENDIF
  266.  
  267. XCHECKBOX 200 114 26 18   "_AHI" "ahi" "On" "Off" OFF
  268. GadTitle RIGHT
  269. IF $ahi = "On"
  270.    setgad MPEGA.gc 4 ON
  271.    Update MPEGA.gc 5 'Enter the AHI Audio mode ID in hex'
  272. ELSE
  273.    setgad MPEGA.gc 4 OFF
  274.    Update MPEGA.gc 5 'AHI will now be disabled'
  275. ENDIF
  276.  
  277. XCHECKBOX 200 134 26 18   "Audio f_ilter" "filter" "On" "Off" OFF
  278. GadTitle RIGHT
  279. Update MPEGA.gc 5 'Audio filter will now be $filter'
  280.  
  281. XHSLIDER 266 158 80 18   "P_riority" "priority" -30 30 0 "%ld"
  282. IF $priority < 31
  283.    Update MPEGA.gc 5 'Process priority of MpegA will be $priority'
  284.    negprio = 0
  285. ELSE
  286.    prio2 = 65536
  287.    COUNTER prio2 DEC $priority
  288.    Update MPEGA.gc 5 'Process priority of MpegA will be -$prio2'
  289.    negprio = 1
  290. ENDIF
  291.  
  292.  
  293. ;--- Bottom gadgets ---
  294.  
  295. XBUTTON 5 182 120 20   "Choose _file(s)..."
  296. Set FilePattern #?MP3#?
  297. GoSub MPEGA.gc setwait
  298. ReqFile 10 10 300 256 "Choose MPEG Audio file(s)" MULTI "Filenames" $defaultpath
  299. GoSub MPEGA.gc setresume
  300.  
  301. IF $Filenames > ""
  302.    ;Listview input maken
  303.    files = 0
  304.    CLI 'Echo "" NOLINE > T:MPEGAGUI.temp'
  305.    WHILE $Filenames != ""
  306.       CutVar Filenames CUT WORD 1 eenfile
  307.       APPEND T:MPEGAGUI.temp $eenfile
  308.       IF $files = 0
  309.          Filename = $eenfile
  310.       ENDIF
  311.       CutVar Filenames CUT CHAR 1 space
  312.       IF $Filenames != ""
  313.          APPEND T:MPEGAGUI.temp \n
  314.       ENDIF   
  315.       files == $files + 1
  316.    ENDWHILE
  317.    IF $files > 1
  318.       ;Playlist window init en openen
  319.       GuiLoad Playlist.gc
  320.       LVUse Playlist.gc 1
  321.       LVChange T:MPEGAGUI.temp
  322.       GuiOpen Playlist.gc
  323.    ELSE
  324.       IFEXISTS Window Playlist.gc
  325.          GuiClose Playlist.gc
  326.       ENDIF
  327.    ENDIF
  328.    Update MPEGA.gc 5 'Current file: $Filename'
  329. ENDIF
  330.  
  331.  
  332. XBUTTON 130 182 120 20   "_PLAY!"
  333. GoSub MPEGA.gc stop
  334. GoSub MPEGA.gc play
  335.  
  336. XBUTTON 255 182 120 20   "_Stop playing"
  337. GoSub MPEGA.gc stop
  338.  
  339. TEXT 5 210 370 18   "Welcome to Kozmic's MPEGA GUI                              " 60 BOX
  340. gadid 5
  341.  
  342.  
  343.  
  344. ;--- Routines ---
  345.  
  346.  
  347. XROUTINE play
  348.  
  349. stilte = 0
  350.  
  351. ;filter bepalen
  352. IF $filter = "On"
  353.    SetVar fil '1'
  354. ELSE
  355.    SetVar fil '0'
  356. ENDIF
  357.  
  358. ;freq div bepalen
  359. DOCASE $freq
  360.    CASE = 0
  361.       SetVar f '1'
  362.    BREAK
  363.    CASE = 1
  364.       SetVar f '2'
  365.    BREAK
  366.    CASE = 2
  367.       SetVar f '4'
  368.    BREAK
  369. ENDCASE
  370.  
  371. ;neg of pos priority bepalen
  372. SetVar prioarg '-p'
  373. IF $negprio = 1
  374.    AppVar prioarg '-$prio2'
  375. ELSE
  376.    AppVar prioarg '$priority'
  377. ENDIF   
  378.  
  379. ;controleren op een hoge priority
  380. warning = 1
  381. IF $priority > 4
  382. AND $negprio = 0
  383. GoSub MPEGA.gc setwait
  384.    EZReq 'Warning! A high priority may lockup your system!' Continue|Cancel warning
  385. GoSub MPEGA.gc setresume
  386. ENDIF
  387.  
  388. ;mode bepalen
  389. SetVar modearg '-n'            ;geen zooi naar stdout
  390. IF $mymode = 0
  391.    AppVar modearg ' -m'
  392. ENDIF
  393.  
  394. ;waardes converteren naar milliseconden
  395. SetVar offs '-S'
  396. AppVar offs '$offset'
  397. AppVar offs '000'
  398. SetVar buff '-t'
  399. AppVar buff '$buffer'
  400. AppVar buff '000'
  401.  
  402. ;volume, wait en maxfreq
  403. SetVar volwaitmf '-v$volume'
  404. IF $wait = 'On'
  405.    AppVar volwaitmf ' $buff -w'
  406. ENDIF
  407. IF $mf = 'On'
  408.    AppVar volwaitmf ' -F$maxfreq'
  409. ENDIF
  410. IF $extra > ""
  411.    AppVar volwaitmf ' $extra'
  412. ENDIF
  413.  
  414. ;play it!
  415. IF $warning = 1
  416.    IF $inf = 1
  417.       CLI '$getinfo $Filename >ENV:.MPEGAGUI.inf'
  418.    ELSE
  419.       .MPEGAGUI.inf = ""
  420.    ENDIF
  421.    LAUNCH 1 '"$Exe" -d$f -q$quality -f$fil $modearg $volwaitmf $prioarg $offs $Filename >NIL:'
  422.    Update MPEGA.gc 5 'Now playing: $Filename'
  423.    IF $.MPEGAGUI.inf > ""
  424.       infostring = $.MPEGAGUI.inf
  425.       CutVar infostring CUT CHAR 30 eenfile
  426.       update MPEGA.gc 11 $eenfile
  427.       CutVar infostring CUT CHAR 30 eenfile
  428.       update MPEGA.gc 12 $eenfile
  429.       update MPEGA.gc 13 $infostring
  430.    ELSE
  431.       update MPEGA.gc 11 "<not available>"
  432.       update MPEGA.gc 12 "<not available>"
  433.       update MPEGA.gc 13 "<not available>"
  434.    ENDIF
  435.    playing == $playing + 1
  436.    nowplaying = $Filename
  437. ELSE
  438.    Update MPEGA.gc 5 'Canceled'        ;cancel in priority warning gekozen
  439. ENDIF
  440.  
  441.  
  442. XOnReturn 1
  443. IF $playing = 1
  444. AND $stilte = 0
  445.    IF $files > 1
  446.       LVUse Playlist.gc 1
  447.       top == $files - 1
  448.       IF $$lv.rec = $nowplaying        ;geen andere manually chosen
  449.          IF $$lv.line != $top        ;niet? -> next
  450.             LVGo next
  451.          ELSE
  452.             LVGo first
  453.          ENDIF
  454.       ENDIF
  455.       Filename = $$lv.rec        ;else choose users wish
  456.       GoSub MPEGA.gc play
  457.    ELSE
  458.       Update MPEGA.gc 5 'Finished'
  459.    ENDIF
  460. ENDIF
  461. playing == $playing - 1
  462.  
  463.  
  464. xOnFail
  465. playing = 0
  466. stilte = 1
  467. Update MPEGA.gc 5 'External error!'
  468.  
  469.  
  470. XROUTINE stop
  471. IF $playing > 0
  472.    CLI 'break `status com "$Exe"` >NIL:'
  473.    Update MPEGA.gc 5 'Playing stopped'
  474.    stilte = 1
  475. ENDIF
  476.  
  477.  
  478. XROUTINE setwait
  479. GuiWindow MPEGA.gc WAIT
  480. GuiWindow Playlist.gc WAIT
  481. GuiWindow extra.gc WAIT
  482.  
  483.  
  484. XROUTINE setresume
  485. GuiWindow MPEGA.gc RESUME
  486. GuiWindow Playlist.gc RESUME
  487. GuiWindow extra.gc RESUME
  488.  
  489.  
  490. XROUTINE cleanup
  491. Delete T:MPEGAGUI.temp
  492. Delete ENV:.MPEGAGUI.options
  493. Delete ENV:.MPEGAGUI.inf
  494. Delete ENV:.MPEGAGUI.header
  495. Delete ENV:.MPEGAGUI.filesize
  496. IF $playing > 0
  497.    EZReq 'MPEGA is still running. What shall I do with it?' "Stop it!|Keep it running" stopit
  498.    IF $stopit = 1
  499.       GoSub MPEGA.gc stop
  500.    ENDIF
  501. ENDIF
  502.  
  503.  
  504. XROUTINE about
  505. EZReq "$version \n\nMPEGAGUI is a frontend for MPEGA,\nan MPEG Audio layer 1, 2 and 3 player.\n\nIt is a Gui4CLI script so you need to get\nthe Gui4CLI package e.g. from AmiNet to get\nit running, but you already knew that unless\nyou're reading this script instead of\nrunning it..\n\nIf you don't like it, change it yourself :-)\n\nCopyright 1997 M. van Dillen (1011071@ibk.fnt.hvu.nl)" Cool! egwel
  506.  
  507.  
  508. XROUTINE CheckExe
  509. IfExists FILE $Exe
  510.    ; bug
  511. Else
  512.    EZReq "MPEGA Executable not found!\nCurrent definition is:\n'$Exe' \n\nYou have to change the 'Exe' definition in the\nfile 'MPEGA.gc' on line number 59\nwith a texteditor.\n\nFor now, you can locate the executable yourself\n(version 2.9+), edit the file 'MPEGA.gc',\nor exit this marvelous GUI.." "Locate MPEGA|Ed MPEGA.gc|Exit" locate
  513.    DOCASE $locate
  514.    CASE = 1
  515.       Set FilePattern #?MPEGA#?
  516.       ReqFile 10 10 300 256 "Locate the MPEGA Executable" LOAD "Exe" $defaultpath
  517.       BREAK
  518.    CASE = 2
  519.       JoinFile $KozPath 'MPEGA.gc' ThisSux
  520.       CLI 'C:Ed $ThisSux'
  521.       EZReq "Please restart MPEGA.gc now." "Exit" egwel
  522.       GuiQuit Playlist.gc
  523.       GuiQuit extra.gc
  524.       GuiQuit MPEGA.gc
  525.       Stop
  526.       BREAK
  527.    CASE = 0
  528.       GuiQuit Playlist.gc
  529.       GuiQuit extra.gc
  530.       GuiQuit MPEGA.gc
  531.       Stop
  532.       BREAK
  533.    ENDCASE
  534. EndIf
  535.  
  536.  
  537. ;--- Menu's ---
  538.  
  539. xMenu Project "Load Playlist..." "" "L"
  540. GoSub Playlist.gc load
  541. IF $files > 1
  542.    ;Playlist window init en openen
  543.    GuiLoad Playlist.gc
  544.    GuiOpen Playlist.gc
  545. ELSE
  546.    IFEXISTS Window Playlist.gc
  547.       GuiClose Playlist.gc
  548.    ENDIF
  549. ENDIF
  550.  
  551. xMenu Project Play "" "P"
  552. GoSub MPEGA.gc stop
  553. GoSub MPEGA.gc play
  554.  
  555. xMenu Project Stop "" "S"
  556. stilte = 1
  557. GoSub MPEGA.gc stop
  558.  
  559. xMenu Project "" "" ""
  560.  
  561. xMenu Project "About" "#:MPEGA.gc" ""
  562. GoSub MPEGA.gc about
  563.  
  564. xMenu Project " " "" ""
  565.  
  566. xMenu Project Quit "" "Q"
  567. GuiClose MPEGA.gc
  568.  
  569. xMenu Windows "Extra options..." "" "E"
  570. Update extra.gc 1 $extra
  571. GuiOpen extra.gc
  572.  
  573. xMenu Windows "Toggle Playlist" "" ""
  574. IFEXISTS Window Playlist.gc
  575.    GuiClose Playlist.gc
  576. ELSE
  577.    GuiOpen Playlist.gc
  578. ENDIF
  579.  
  580. xMenu Misc "Toggle MP3 Info" "" "I"
  581. IF $inf = 1
  582.    inf = 0
  583.    SetGad MPEGA.gc 8 show    ;logo
  584.    SetGad MPEGA.gc 10 hide    ;box
  585.    SetGad MPEGA.gc 11 hide    ;text
  586.    SetGad MPEGA.gc 12 hide    ;text
  587.    SetGad MPEGA.gc 13 hide    ;text
  588.    SetGad MPEGA.gc 14 hide    ;text
  589.    SetGad MPEGA.gc 15 hide    ;text
  590.    SetGad MPEGA.gc 16 hide    ;text
  591.    Update MPEGA.gc 5 'No info will be searched'
  592. ELSE
  593.    inf = 1
  594.    SetGad MPEGA.gc 8 hide    ;logo
  595.    SetGad MPEGA.gc 10 show    ;box
  596.    SetGad MPEGA.gc 11 show    ;text
  597.    SetGad MPEGA.gc 12 show    ;text
  598.    SetGad MPEGA.gc 13 show    ;text
  599.    SetGad MPEGA.gc 14 show    ;text
  600.    SetGad MPEGA.gc 15 show    ;text
  601.    SetGad MPEGA.gc 16 show    ;text
  602.    Update MPEGA.gc 5 'Songinfo will be searched at playtime'
  603. ENDIF
  604. redraw MPEGA.gc
  605.  
  606. xMenu Misc "Show status" "" ""
  607. IF $playing > 0
  608.    CLI 'List lformat %l $nowplaying > ENV:.MPEGAGUI.filesize'
  609.    thissux = 'Now playing: $nowplaying ('
  610.    AppVar thissux $.MPEGAGUI.filesize
  611.    AppVar thissux ')'
  612.    ; This sucks. You can't say 'blahblah ($variable)' because it then searches
  613.    ; for the var  variable)  which doesn't exist.
  614.    Update MPEGA.gc 5 $thissux
  615.    Delete ENV:.MPEGAGUI.filesize
  616. ELSE
  617.    Update MPEGA.gc 5 'Idle'
  618. ENDIF
  619.  
  620. ;================================================================================================
  621. ;================================================================================================
  622. ;================================================================================================
  623.  
  624. NEWFILE Playlist.gc
  625.  
  626. WINBIG 1024 267 380 100 'MPEGA GUI Playlist'
  627. WinType 11110001
  628. WinSmall -1 -1 158 100
  629.  
  630. xAppWindow Filenames
  631. IF $Filenames > ""
  632.    ;Listview input maken
  633.    IfExists FILE T:MPEGAGUI.temp
  634.       CLI 'Echo "" >> T:MPEGAGUI.temp'            ;return plakken
  635.    ELSE
  636.       CLI 'Echo "" NOLINE > T:MPEGAGUI.temp'        ;file aanmaken
  637.       files = 0
  638.    ENDIF
  639.    WHILE $Filenames != ""
  640.       CutVar Filenames CUT WORD 1 eenfile
  641.       APPEND T:MPEGAGUI.temp $eenfile
  642.       IF $files = 0
  643.          Filename = $eenfile
  644.       ENDIF
  645.       CutVar Filenames CUT CHAR 1 space
  646.       IF $Filenames != ""
  647.          APPEND T:MPEGAGUI.temp \n
  648.       ENDIF   
  649.       files == $files + 1
  650.    ENDWHILE
  651.    ;Playlist window init en openen
  652.    GuiLoad Playlist.gc
  653.    LVUse Playlist.gc 1
  654.    LVChange T:MPEGAGUI.temp
  655.    GuiOpen Playlist.gc
  656.    Update MPEGA.gc 5 'Current file: $Filename'
  657. ENDIF
  658.  
  659.  
  660. XListView 0 26 -1 74 "" LVFilename T:MPEGAGUI.temp 0 TXT
  661. gadid 1
  662. IF $$lv.rec != 'No Data'
  663.    Filename = $LVFilename
  664.    IF $playing > 0
  665.       Update MPEGA.gc 5 'Next file: $Filename'
  666.    ELSE
  667.       Update MPEGA.gc 5 'Current file: $Filename'
  668.    ENDIF
  669. ENDIF
  670.  
  671. XButton 0 0 76 13 "I"
  672. GadFont gc.font 12 000
  673. LVUse Playlist.gc 1
  674. LVGo first
  675. Filename = $$lv.rec
  676. Update MPEGA.gc 5 'Current file: $Filename'
  677.  
  678. XButton 76 0 76 13 "G"
  679. GadFont gc.font 12 000
  680. LVUse Playlist.gc 1
  681. IF $$lv.line != 0
  682.    LVGo prev
  683.    Filename = $$lv.rec
  684.    Update MPEGA.gc 5 'Current file: $Filename'
  685. ENDIF
  686. GoSub MPEGA.gc stop
  687. GoSub MPEGA.gc play
  688.  
  689. XButton 152 0 76 13 "Sh_uffle"
  690. LVUse Playlist.gc 1
  691. tel = $files
  692. JoinFile $KozPath 'Random' copyarg
  693. Copy $copyarg T:
  694. WHILE $tel > 0
  695.    CLI 'T:Random $tel > env:.MPEGAGUI.random'
  696.    LVGo #$.MPEGAGUI.random
  697.    vorige = $$lv.line
  698.    LVAdd $$lv.rec
  699.    LVGo #$vorige
  700.    LVDel -1
  701.    tel == $tel - 1
  702. ENDWHILE
  703. Delete T:Random
  704. Delete env:.MPEGAGUI.random
  705. LVGo first
  706. Filename = $$lv.rec
  707. Update MPEGA.gc 5 'Current file: $Filename'
  708.  
  709.  
  710. XButton 228 0 76 13 "g"
  711. GadFont gc.font 12 000
  712. LVUse Playlist.gc 1
  713. top == $files - 1
  714. IF $$lv.line != $top
  715.    LVGo next
  716.    Filename = $$lv.rec
  717.    Update MPEGA.gc 5 'Current file: $Filename'
  718. ENDIF
  719. GoSub MPEGA.gc stop
  720. GoSub MPEGA.gc play
  721.  
  722. XButton 304 0 76 13 "i"
  723. GadFont gc.font 12 000
  724. LVUse Playlist.gc 1
  725. LVGo last
  726. Filename = $$lv.rec
  727. Update MPEGA.gc 5 'Current file: $Filename'
  728.  
  729.  
  730. ;--- 2e regel
  731.  
  732. XButton 0 13 76 13 "_Save"
  733. Set FilePattern #?
  734. GoSub MPEGA.gc setwait
  735. playlistfile = ""
  736. ReqFile 10 10 300 256 "Save Playlist to.." SAVE "playlistfile" $playlistpath
  737. GoSub MPEGA.gc setresume
  738. IF $playlistfile > ""
  739.    IfExists FILE $playlistfile
  740.       EZReq "The file '$playlistfile' already exists!" Replace|Cancel replace
  741.       IF $replace = 1
  742.          CLI 'Echo $header > T:MPEGAGUI.header'
  743.          LVSave T:MPEGAGUI.temp
  744.          CLI 'Type T:MPEGAGUI.header T:MPEGAGUI.temp > $playlistfile'
  745.       ENDIF
  746.    ELSE
  747.       CLI 'Echo $header > T:MPEGAGUI.header'
  748.       LVSave T:MPEGAGUI.temp
  749.       CLI 'Type T:MPEGAGUI.header T:MPEGAGUI.temp > $playlistfile'
  750.    ENDIF
  751. ENDIF
  752.  
  753. XButton 76 13 76 13 "_Load"
  754. GoSub Playlist.gc load
  755.  
  756. XButton 152 13 76 13 "_Add"
  757. Set FilePattern #?MP3#?
  758. GoSub MPEGA.gc setwait
  759. ReqFile 10 10 300 256 "Choose MPEG Audio file(s)" MULTI "Filenames" $defaultpath
  760. GoSub MPEGA.gc setresume
  761. IF $Filenames > ""
  762.    ;Listview input maken
  763.    IfExists FILE T:MPEGAGUI.temp
  764.       CLI 'Echo "" >> T:MPEGAGUI.temp'            ;return plakken
  765.    ELSE
  766.       CLI 'Echo "" NOLINE > T:MPEGAGUI.temp'        ;anders de file aanmaken
  767.       files = 0
  768.    ENDIF
  769.    WHILE $Filenames != ""
  770.       CutVar Filenames CUT WORD 1 eenfile
  771.       APPEND T:MPEGAGUI.temp $eenfile
  772.       IF $files = 0
  773.          Filename = $eenfile
  774.       ENDIF
  775.       CutVar Filenames CUT CHAR 1 space
  776.       IF $Filenames != ""
  777.          APPEND T:MPEGAGUI.temp \n
  778.       ENDIF   
  779.       files == $files + 1
  780.    ENDWHILE
  781.    IF $files > 1
  782.       ;Playlist window init en openen
  783.       GuiLoad Playlist.gc
  784.       LVUse Playlist.gc 1
  785.       LVChange T:MPEGAGUI.temp
  786.       GuiOpen Playlist.gc
  787.    ELSE
  788.       IFEXISTS Window Playlist.gc
  789.          GuiClose Playlist.gc
  790.       ENDIF
  791.    ENDIF
  792.    Update MPEGA.gc 5 'Current file: $Filename'
  793. ENDIF
  794.  
  795. XButton 228 13 76 13 "_Del"
  796. LVUse Playlist.gc 1
  797. IF $files > 0
  798.    LVDel -1
  799.    files == $files - 1
  800.    top == $files - 1
  801.    IF $$lv.line != $top
  802.    AND $$lv.line != 0
  803.       LVGo next
  804.    ENDIF
  805.    Filename = $$lv.rec
  806.    Update MPEGA.gc 5 'Current file: $Filename'
  807.    LVSave T:MPEGAGUI.temp
  808. ELSE
  809.    Update MPEGA.gc 5 'And.. that was the last one :-)'
  810. ENDIF
  811.  
  812. XButton 304 13 76 13 "_Clear"
  813. LVUse Playlist.gc 1
  814. LVClear
  815. files = 0
  816. IFEXISTS FILE T:MPEGAGUI.temp
  817.    Delete T:MPEGAGUI.temp
  818. ENDIF
  819.  
  820.  
  821. ;--- Routines ---
  822.  
  823. XROUTINE load
  824. Set FilePattern #?
  825. GoSub MPEGA.gc setwait
  826. ReqFile 10 10 300 256 "Choose a Playlist file" LOAD "playlistfile" $playlistpath
  827. GoSub MPEGA.gc setresume
  828. IF $playlistfile F= $defaultpath
  829. ; bug
  830. ELSE
  831.    IF $playlistfile H= $header
  832.       Copy $playlistfile T:MPEGAGUI.temp
  833.       LVUse Playlist.gc 1
  834.       LVChange T:MPEGAGUI.temp
  835.       ;laatste weghalen als ie leeg is (return achter laatste record)
  836.       LVGo last
  837.       IF $$lv.rec = ""
  838.          LVDel -1
  839.       ENDIF
  840.       ;eerste weghalen (header)
  841.       LVGo first
  842.       LVDel -1
  843.       Filename = $$lv.rec
  844.       Update MPEGA.gc 5 'Current file: $Filename'
  845.       files = $$lv.total
  846.       ;opslaan zonder header en return
  847.       LVSave T:MPEGAGUI.temp
  848.    ELSE
  849.       GoSub MPEGA.gc setwait
  850.       EZReq "This is not an MPEGAGUI Playlist file!" "You're right. sorry.|Oh yes it is!" joke
  851.       IF $joke = 0
  852.          EZReq "No way! :-)" Oki.. joke
  853.       ENDIF
  854.       GoSub MPEGA.gc setresume
  855.    ENDIF
  856. ENDIF
  857.  
  858.  
  859. ;--- Menu's ---
  860.  
  861. xMenu Project "Load Playlist..." "" "L"
  862. GoSub Playlist.gc load
  863. IF $files > 1
  864.    ;Playlist window init en openen
  865.    GuiLoad Playlist.gc
  866.    GuiOpen Playlist.gc
  867. ELSE
  868.    IFEXISTS Window Playlist.gc
  869.       GuiClose Playlist.gc
  870.    ENDIF
  871. ENDIF
  872.  
  873. xMenu Project Play "" "P"
  874. GoSub MPEGA.gc stop
  875. GoSub MPEGA.gc play
  876.  
  877. xMenu Project Stop "" "S"
  878. stilte = 1
  879. GoSub MPEGA.gc stop
  880.  
  881. xMenu Project "" "" ""
  882.  
  883. xMenu Project "About" "#:MPEGA.gc" ""
  884. GoSub MPEGA.gc about
  885.  
  886. xMenu Project " " "" ""
  887.  
  888. xMenu Project Quit "" "Q"
  889. GuiClose MPEGA.gc
  890.  
  891. xMenu Windows "Extra options..." "" "E"
  892. Update extra.gc 1 $extra
  893. GuiOpen extra.gc
  894.  
  895. xMenu Windows "Toggle Playlist" "" ""
  896. GuiClose Playlist.gc
  897.  
  898. xMenu Misc "Toggle MP3 Info" "" "I"
  899. IF $inf = 1
  900.    inf = 0
  901.    SetGad MPEGA.gc 8 show    ;logo
  902.    SetGad MPEGA.gc 10 hide    ;box
  903.    SetGad MPEGA.gc 11 hide    ;text
  904.    SetGad MPEGA.gc 12 hide    ;text
  905.    SetGad MPEGA.gc 13 hide    ;text
  906.    SetGad MPEGA.gc 14 hide    ;text
  907.    SetGad MPEGA.gc 15 hide    ;text
  908.    SetGad MPEGA.gc 16 hide    ;text
  909.    Update MPEGA.gc 5 'No info will be searched'
  910. ELSE
  911.    inf = 1
  912.    SetGad MPEGA.gc 8 hide    ;logo
  913.    SetGad MPEGA.gc 10 show    ;box
  914.    SetGad MPEGA.gc 11 show    ;text
  915.    SetGad MPEGA.gc 12 show    ;text
  916.    SetGad MPEGA.gc 13 show    ;text
  917.    SetGad MPEGA.gc 14 show    ;text
  918.    SetGad MPEGA.gc 15 show    ;text
  919.    SetGad MPEGA.gc 16 show    ;text
  920.    Update MPEGA.gc 5 'Songinfo will be searched at playtime'
  921. ENDIF
  922. redraw MPEGA.gc
  923.  
  924. xMenu Misc "Show status" "" ""
  925. IF $playing > 0
  926.    CLI 'List lformat %l $nowplaying > ENV:.MPEGAGUI.filesize'
  927.    thissux = 'Now playing: $nowplaying ('
  928.    AppVar thissux $.MPEGAGUI.filesize
  929.    AppVar thissux ')'
  930.    ; This sucks. You can't say 'blahblah ($variable)' because it then searches
  931.    ; for the var  variable)  which doesn't exist.
  932.    Update MPEGA.gc 5 $thissux
  933.    Delete ENV:.MPEGAGUI.filesize
  934. ELSE
  935.    Update MPEGA.gc 5 'Idle'
  936. ENDIF
  937.  
  938. ;================================================================================================
  939. ;================================================================================================
  940. ;================================================================================================
  941.  
  942. NEWFILE extra.gc
  943.  
  944. WINBIG -1 -1 380 50 'MPEGA Extra commandline options'
  945. WinType 11010000
  946.  
  947. xOnKey #27
  948. extra = $.MPEGAGUI.options
  949. Update MPEGA.gc 5 'Extra cmdline options not changed'
  950. GuiClose extra.gc
  951.  
  952. XTEXTIN 5 5 370 18 "" "extra" "" 800
  953. gadid 1
  954.  
  955. xButton 14 28 70 18 "_Save"
  956. .MPEGAGUI.options = $extra
  957. Copy ENV:.MPEGAGUI.options $opfile
  958. Update MPEGA.gc 5 'Extra cmdline options saved: $extra'
  959. GuiClose extra.gc
  960.  
  961. xButton 106 28 70 18 "_Use"
  962. Update MPEGA.gc 5 'Extra cmdline options set: $extra'
  963. GuiClose extra.gc
  964.  
  965. xButton 198 28 70 18 "_Restore"
  966. extra = $.MPEGAGUI.options
  967. Update extra.gc 1 $extra
  968.  
  969. xButton 291 28 70 18 "_Cancel"
  970. extra = $.MPEGAGUI.options
  971. Update MPEGA.gc 5 'Extra cmdline options not changed'
  972. GuiClose extra.gc
  973.  
  974. xMenu Project Save "" ""
  975. .MPEGAGUI.options = $extra
  976. Copy ENV:.MPEGAGUI.options $opfile
  977. Update MPEGA.gc 5 'Extra cmdline options saved: $extra'
  978. GuiClose extra.gc
  979.  
  980. xMenu Project Use "" ""
  981. Update MPEGA.gc 5 'Extra cmdline options set: $extra'
  982. GuiClose extra.gc
  983.  
  984. xMenu Project Restore "" ""
  985. extra = $.MPEGAGUI.options
  986. Update extra.gc 1 $extra
  987.  
  988. xMenu Project Cancel "" ""
  989. extra = $.MPEGAGUI.options
  990. Update MPEGA.gc 5 'Extra cmdline options not changed'
  991. GuiClose extra.gc
  992.